home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / shared.dir / 01000.ls next >
Encoding:
Text File  |  1995-08-03  |  446 b   |  21 lines
  1. on pushButton
  2.   puppetSound("Newclick.aif")
  3.   set spr to the clickOn
  4.   set cnum to the castNum of sprite spr
  5.   set the castNum of sprite spr to cnum + 1
  6.   updateStage()
  7.   set spr to the clickOn
  8.   set cnum to the castNum of sprite spr
  9.   startTimer()
  10.   repeat while the timer < 15
  11.   end repeat
  12.   set the castNum of sprite spr to cnum - 1
  13.   updateStage()
  14. end
  15.  
  16. on forgetExp
  17.   global myWindow, myWindowRect, rValue
  18.   forget(myWindow)
  19.   put rValue
  20. end
  21.